home *** CD-ROM | disk | FTP | other *** search
/ Video Toaster 4.2 / Video Toaster v4.2.iso / programs / startups / lwstart next >
Text File  |  1996-02-14  |  2KB  |  82 lines
  1. /* LWStart -- Start lightwave without the editor loaded.            */
  2. /* By Bob Caron (Grue) © 1995 NewTek Inc.                           */
  3.  
  4. OPTIONS RESULTS
  5. TOASTERLIB="ToasterARexx.port"
  6. call remlib('ToasterARexx.port')
  7.  
  8. IF SHOW('Ports','ToasterARexx.port') THEN
  9.   IF ADDLIB(TOASTERLIB , 0) THEN x=Bummer("The Video Toaster Flyer is already running!! ")
  10.  
  11. call pragma("d","toaster:programs")
  12.  
  13. switcher=1
  14.  
  15. if exists("toaster:programs/switcher.main.aa") then switcher=2
  16. else
  17.    switcher=1
  18. say "LWStart V1.2"
  19. say
  20.  
  21. if (exists("toaster:programs/switcher.main.aa") & exists("toaster:programs/switcher.main")) then do
  22.    do while left(computer,1) ~="2" & left(computer,1)~="4"
  23.       say "You have the A2000 and the A4000 switcher programs on your system!"
  24.       say ""
  25.       say "Is this computer an Amiga 2000 or an Amiga 4000? <2000/4000>"
  26.       pull computer
  27.       end
  28.       say
  29.    if left(computer,1)="4" then switcher=2
  30.    else switcher=1
  31.    end
  32.  
  33. if switcher=2 then
  34.     address command "run >NIL: switcher.main.aa noed"
  35. else
  36.     address command "run >NIL: switcher.main noed"
  37.  
  38. do while ~SHOW('Ports','ToasterARexx.port')
  39.    address command "c:wait 1"
  40. end
  41.  
  42. call remlib('ToasterARexx.port')
  43. call ADDLIB('ToasterARexx.port' , 0)
  44.  
  45. /* Add Startup Code here... */
  46.    say
  47.    say
  48.    say "Currently the Toaster/Flyer Software is loaded without the sequencer."
  49.    say ""
  50.    say " To load the sequencer:"
  51.    say "   1) Exit LightWave."
  52.    say "   2) At the switcher press F8."
  53.    say ""
  54.    say " To quit altogether:"
  55.    say "   1) Exit LightWave."
  56.    say "   2) Press Ctrl+Left-Alt+F10 to quit the switcher."
  57.    say
  58.    say
  59.    Switcher(M002)
  60.    Switcher(LDLW)
  61.    Switcher(STLW)
  62.    Switcher(QUIT) /* Freeze the script until we leave lightwave */
  63.    do while SHOW('Ports','ToasterARexx.port') & ~SHOW('Ports','PROJECT_REXX_PORT')
  64.       address command "c:wait 5"
  65.    end
  66. /* End of code. */
  67.  
  68. call remlib('ToasterARexx.port')
  69.  
  70. exit
  71.  
  72. bummer: /* <- An Arnie like error system */
  73. parse arg message
  74. say "LWStart V1.2"
  75. say
  76.  
  77. say message
  78. say
  79. say "Press <Return> to continue."
  80. pull stuff
  81.  
  82. exit